unit ConsultaDatosMaquina;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseMaquinas, XPMan, StdCtrls, Buttons, ComCtrls, ExtCtrls,
  ToolWin;

type
  TfrmConsultaDatosMaquina = class(TfrmBaseMaquinas)
    btnHistorial: TBitBtn;
    procedure btnAceptarClick(Sender: TObject);
    procedure btnHistorialClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConsultaDatosMaquina: TfrmConsultaDatosMaquina;

implementation

uses Datos, ReporteHistorialPC;

{$R *.dfm}

procedure TfrmConsultaDatosMaquina.btnAceptarClick(Sender: TObject);
begin
  inherited;
  frmConsultaDatosMaquina.Close;
end;

procedure TfrmConsultaDatosMaquina.btnHistorialClick(Sender: TObject);
begin
  inherited;
  frmDatos.qryHistorialReparaciones.Connection:=frmDatos.ZConnection1;
  frmDatos.qryHistorialReparaciones.SQL.Clear;
  frmDatos.qryHistorialReparaciones.SQL.Text:='select * from reparacion r,tecnico t,maquina m,clientes c'
                                              + ' where r.nro_serie_pc ='+ '''' + edtNroSerie.Text + ''''
                                              + ' and r.cod_tecnico=t.cod_tecnico'
                                              + ' and r.nro_serie_pc=m.nro_serie_pc'
                                              + ' and c.cod_cliente=m.cod_cliente';
  frmDatos.qryHistorialReparaciones.Open;

  frmReporteHistorialReparacion.QuickRep1.Preview;
end;

end.
